home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 8
/
Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso
/
Aminet
/
comm
/
tcp
/
DynamicIP.lha
/
Online.vlt
< prev
next >
Wrap
Text File
|
1994-12-28
|
954b
|
28 lines
/*\
* Online: (28-Dec-94)
* This script is called from VLT to parse the logfile for
* the IP number. It currently searches for a line...
*
* IP Address: ???.???.???.???
*
* and grabs the IP adress, running AmiTCP:bin/StartNet with
* the IP address as the paramater.
*
* IanSmith@psu.edu (Ian M. Smith)
\*/
Call Open(In, "AmiTCP:Slip.Data", "R")
Do Until Left(Line,11)= "IP Address:" /* Search for the line starting with */
Line=ReadLN(In) /* "IP Address:" */
End
IPAddress=Word(Line,3) /* The 3rd word is the IP address */
Call Close(In)
Call Open(Out, "RAM:StartNet.Temp$", "W")
Call WriteLN(Out, "Cd AmiTCP:bin")
Call WriteLN(Out, "StartNet "||IPAddress)
Call WriteLN(Out, "EndCLI")
Call Close(Out)
Address Command "NewCLI CON:0/22/800/150/AmiTCP-StartUp/AUTO/CLOSE/NOWAIT From Ram:StartNet.Temp$"
Delay(60)
Address Command "Delete QUIET Ram:StartNet.Temp$"